﻿Imports cerveza

Public Class ReservaNuevoForm


    Private Sub ReservaNuevo_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Fecha_ValueChanged(sender As System.Object, e As System.EventArgs) Handles Fecha.ValueChanged

    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim n = New ReservaNegocio

        Dim x = Me.txtIDUsuario.Text

        Dim y = Me.Fecha.Value

        Dim a = Me.txtPago.Text

        Dim b = Me.txtTotal.Text


        Dim paquete = n.insertar(x, y, a, b)

        MsgBox("Reserva registrada!!!!")

        'Limpiar cajitas de texto desues de ingresar datos
        txtIDUsuario.Clear()
        txtPago.Clear()
        txtTotal.Clear()
    End Sub
End Class